Edsac program for sieve of Eratosthenes 
Eiiti Wada, April 1 2001 

Working space 

1023 11111... Ill 1022 sieve represent odd numbers from 3 

1021 11111... Ill 1020 sieve shown in LongTank 31 



33 11111. 



.111 992 



991 10000... 000 990 positive strobe used to test sieve 

989 01000. . .000 988 

923 00000. . .001 922 

921 01111... Ill 920 negative strove used to reset sieve 

919 10111. . .111 918 



353 11111. 
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GKA3FT25@H29@VFT4DA3@TFH30@S6@T1F 
V4DU4DAFG2 6@TFTF05FA4DF4FS4F 
L4FT4DAlFS3@G9@EFSFO31@E2 0@J995FJF!F 
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If 

cr 

fig shift 



counter (4 x current prime number) 



strobe source 

shifted 1 bit to the left each time 
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store sieve 

update "store sive order' 



end of sieve preparation^ 
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S 844 D 
G 75 @ 
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34 @ 
71 @ 
S 843 F 
T 72 @ 
A 33 @ 
S 842 F 
A 841 F 
U 70 @ 
S 840 F 
G 69 @ 
T F 
A 71 @ 
A 849 F 
U 71 @ 
S 843 F 
U 72 @ 
S 848 F 
E 75 @ 



store negative strobe 

store positive strobe 
shift left 1 bit 

update "store strobe orders' 



end of strobe preparation? 

fig shift 

cr 

If 



store 2 

call P6, print the first prime 2 

load strobe into the multiplier register 
test sieve 

jump to 75 if composite 

fig shift 

cr 

If 



store next prime number 



call P6, print the subsequent prime numbers 



plant "reset sieve orders' 



update reset sieve orders 



stepped out the sieve space? 



end of sieve space? 
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reset sieve orders, load strobe into the multiplier register 
collate with sieve 
store sieve 



increase counter 



update test sieve oreders 



stop 



